home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / e / makeefile.lha / MakeEFile_and_src / Examples / ArgArray / ArgArray_EPP.e next >
Encoding:
Text File  |  1994-04-19  |  896 b   |  34 lines
  1. /*
  2.  * ArgArray_EPP.e
  3.  *
  4.  * Test pour module EPP argarray.e
  5.  *
  6.  */
  7.  
  8. PMODULE 'PMODULES:User/argarray'
  9. MODULE    'icon'
  10.  
  11. PROC main() HANDLE
  12.   DEF ttypes:PTR TO LONG, i=0,name,numb
  13.   iconbase:=NIL
  14.   IF (iconbase:=OpenLibrary('icon.library',39))=NIL THEN Raise("ICON")
  15.   IF _astartup()<>NIL THEN Raise("STRT")    /* erreur -> _exit(20) */
  16.   ttypes:=_argarrayinit(_argc,_argv)        /* do not Raise() if none */
  17.  
  18.   /*IF _argc=0 /* wb */
  19.     WHILE ttypes[i]<>NIL DO WriteF('tooltype[\d]=\s\n',i,ttypes[i++])
  20.   ELSE
  21.     WHILE ttypes[i]<>NIL DO WriteF('DOS arg[\d]=\s\n',i,ttypes[i++])
  22.   ENDIF*/
  23.   name:=_argstring(ttypes,'NAME','<nom>')
  24.   numb:=_argint(ttypes,'NUMBER',"FRAN")
  25.   WriteF('name=\s\n',name)
  26.   WriteF('number=0x\h\n',numb)
  27.  
  28.   Raise(NIL)    /* Close All */
  29.   EXCEPT
  30.   _argarraydone()
  31.   IF (iconbase<>NIL); CloseLibrary(iconbase); iconbase:=NIL; ENDIF
  32.   IF exception=NIL THEN _exit(0) ELSE _exit(20)
  33. ENDPROC
  34.